home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 44
/
044.d81
/
mag entry.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
933b
|
27 lines
0 poke53280,2:poke53281,.
5 if a=1 then 10
6 a=1
7 print"[147]please wait while loading..."
8 load"mag entry.64.ml",8,1
10 poke53280,2:poke53281,.
20 printchr$(142)"[147] [158]magazine entry - 64"
30 print" u [154]- use magazine entry program"
40 print" q [154]- quit"
50 print" press u [154]or q[154]."
52 ifmmthen60
55 print" [150]because of the nature of this"
56 print" program, once you choose to use the"
57 print" magazine entry program you must"
58 print" re-boot to return to loadstar.[145][145][145][145][145][145][145]":mm=1
60 a=peek(203):ifa<>30anda<>62then60
70 ifa=62thengosub60000:goto50
80 print"[147] magazine entry - 64 activated!"
90 print" enter "chr$(34)"new"chr$(34)" before entering a program"
100 sys49152:poke198,.:poke2,123:end
60000 print"[145] [154]are you sure you want to quit? (y[154]/n[154])"
60010 a=peek(203):ifa<>25anda<>39then60010
60020 ifa=39thenprint"[145] [145]":return
60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60040 if(er<>63)or(peek(2)=123)thenend
60050 load"hello connect",8